perm filename D[4,ALS]1 blob sn#052851 filedate 1973-07-07 generic text, type T, neo UTF8
00010	CTA:	LDB	K,OUTA		;Save old value
00020		DPB	Z,OUTA		;Deposit new value
00030		LDB	L,LEVA		;read counter gating level
00040		CAMG	Z,L		;Iis current value abouve level
00050		JRST	CTA3		;No it is not
00060		CAMLE	K,L		;What about older value
00070		JRST	CTA2		;It was also above level
00080		MOVE	K,SEGC		;Start of + state
00090		DPB	K,STARTA
00100		DPB	Z,MAXA		;Start new max measure
00110		MOVEI	K,0
00120		DPB	K,ENDA		;Zero end value to indicate in + state
00130		AOS	SFLAG
00140		JRST	CTB
00150	
00160	CTA2:	LDB	K,MAXA		;Continuation of + state
00170		CAMLE	Z,K
00180		DPB	Z,MAXA
00190		JRST	CTB
00200	
00210	CTA3:	CAMG	K,L		;Test older value
00220		JRST	CTB		;Still in - state
00230		MOVE	Z,SEGC		;End of + state
00240		DPB	Z,ENDA
00250		AOS	EFLAG
00260	
00270	CTB:	LDB	K,OUTB		;Save old value
00280		DPB	Z,OUTB		;Deposit new value
00290		LDB	L,LEVB		;read counter gating level
00300		CAMG	Z,L		;Iis current value abouve level
00310		JRST	CTB3		;No it is not
00320		CAMLE	K,L		;What about older value
00330		JRST	CTB2		;It was also above level
00340		MOVE	K,SEGC		;Start of + state
00350		DPB	K,STARTB
00360		DPB	Z,MAXB		;Start new max measure
00370		MOVEI	K,0
00380		DPB	K,ENDB
00390		AOS	SFLAG
00400		JRST	CTC
00410	
00420	CTB2:	LDB	K,MAXB		;Continuation of + state
00430		CAMLE	Z,K
00440		DPB	Z,MAXB
00450		JRST	CTC
00460	
00470	CTB3:	CAMG	K,L		;Test older value
00480		JRST	CTC		;Still in - state
00490		MOVE	Z,SEGC		;End of + state
00500		DPB	Z,ENDB
00510		AOS	EFLAG
00520	
00530	CTC:	LDB	K,OUTC		;save old value
00540		DPB	Z,OUTC		;Deposit new value
00550		LDB	L,LEVC		;read counter gating level
00560		CAMG	Z,L		;Iis current value abouve level
00570		JRST	CTC3		;No it is not
00580		CAMLE	K,L		;What about older value
00590		JRST	CTC2		;It was also above level
00600		MOVE	K,SEGC		;Start of + state
00610		DPB	K,STARTC
00620		DPB	Z,MAXC		;Start new max measure
00630		MOVEI	K,0
00640		DPB	K,ENDC
00650		AOS	SFLAG
00660		JRST	CTD
00670	
00680	CTC2:	LDB	K,MAXC		;Continuation of + state
00690		CAMLE	Z,K
00700		DPB	Z,MAXC
00710		JRST	CTD
00720	
00730	CTC3:	CAMG	K,L		;Test older value
00740		JRST	CTD		;Still in - state
00750		MOVE	Z,SEGC		;End of + state
00760		DPB	Z,ENDC
00770		AOS	EFLAG
00780	
00790	CTD:	LDB	K,OUTD		;save old value
00800		DPB	Z,OUTD		;Deposit new value
00810		LDB	L,LEVD		;read counter gating level
00820		CAMG	Z,L		;Iis current value abouve level
00830		JRST	CTD3		;No it is not
00840		CAMLE	K,L		;What about older value
00850		JRST	CTD2		;It was also above level
00860		MOVE	K,SEGC		;Start of + state
00870		DPB	K,STARTD
00880		DPB	Z,MAXD		;Start new max measure
00890		MOVEI	K,0
00900		DPB	K,ENDD
00910		AOS	SFLAG
00920		JRST	CTE
00930	
00940	CTD2:	LDB	K,MAXD		;Continuation of + state
00950		CAMLE	Z,K
00960		DPB	Z,MAXD
00970		JRST	CTE
00980	
00990	CTD3:	CAMG	K,L		;Test older value
01000		JRST	CTE		;Still in - state
01010		MOVE	Z,SEGC		;End of + state
01020		DPB	Z,ENDD
01030		AOS	EFLAG
01040	
01050	CTE: